home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
program
/
fpk65_66.zip
/
SOURCE
/
RTL
/
DOS
/
MODES.INC
< prev
next >
Wrap
Text File
|
1996-11-12
|
666b
|
26 lines
{****************************************************************************
FPKPascal Runtime-Library
Copyright (c) 1994,96 by
Florian Klaempfl
****************************************************************************}
function getscreenmode : byte;
begin
dosmemget($40,$49,getscreenmode,1);
end;
procedure setscreenmode(mode : byte);
begin
asm
movb 8(%ebp),%al
xorb %ah,%ah
pushl %ebp
int $0x10
popl %ebp
end;
end;